home *** CD-ROM | disk | FTP | other *** search
/ Zoom 2 / Zoom - Release 2 (1996)(Active Software)[!].iso / programming / amos / extensions / procs / _grid.amos / _grid.amosSourceCode
Encoding:
AMOS Source Code  |  2008-12-10  |  441 b   |  22 lines
  1. Rem grid draw routine
  2. Rem this routine will draw an x,y grid anywhere on the screen
  3.  
  4. GRDL=20
  5. GRDT=20
  6. GRDW=250
  7. GRDH=100
  8. GRDX=20
  9. GRDY=20
  10.  
  11. GRID[GRDL,GRDT,GRDW,GRDH,GRDX,GRDY]
  12.  
  13. Procedure GRID[GRDL,GRDT,GRDW,GRDH,GRDX,GRDY]
  14.    For GRDC=0 To GRDX
  15.       GRDV=GRDL+(GRDW*GRDC)/GRDX
  16.       Polyline GRDV,GRDT To GRDV,GRDT+GRDH
  17.    Next 
  18.    For GRDC=0 To GRDY
  19.       GRDV=GRDT+(GRDH*GRDC)/GRDY
  20.       Polyline GRDL,GRDV To GRDL+GRDW,GRDV
  21.    Next 
  22. End Proc